﻿Public Class roomClass

    Public Sub bookRoom(ByVal roomNumber)
        userDetailsForm.roomNoTxt.Text = roomNumber
        Dim roomtype As String
        If (Convert.ToInt32(roomNumber.ToString().Substring(1, 2)) > 4) Then
            roomtype = 1
            userDetailsForm.roomTypeTxt.Text = "President Suite"
        Else
            roomtype = 2
            userDetailsForm.roomTypeTxt.Text = "Standard Double Room"
        End If
        userDetailsForm.Show()
    End Sub

End Class
